Câu hỏi: Em hãy tìm và sửa lỗi chương trình sau:
Program So sanh;
Uses crt;
Var m, n= integer;
Begin
if m > n then writeln(m lon hon n);
else if m < n writeln(m nho hon n);
else writeln('m bang n');
readln
End.
P/S: Bạn nào biết thì trả lời giúp mình với, đang cần gắp lắm ạ!
Program So sanh;
Uses crt;
Var m, n= integer;
Begin
Clrscr;
Writeln('Hay nhap so m va n');
if m > n then writeln(m lon hon n);
if m < n then writeln(m nho hon n);
else writeln('m bang n');
readln
End.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh
uses crt;
var A B: integer;
begin
clrscr;
writeln(‘Nhap so A: ’) readln(A);
writeln(‘Nhap so B, khac so A: ‘); readln(B);
if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
end.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program So_Sanh;
uses crt
var A: B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’);
readln(B);
writeln(‘Nhap so B, khac so A: ‘);
readln(B);
if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
End.
Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End
Cho đoạn chương trình sau:
s1 := ‘1234’; s2 := ‘abc’;
if length(s1) < length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Cho đoạn chương trình sau:
s1 := ‘1234’; s2 := ‘abc’;
if length(s1) > length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Cho đoạn chương trình sau:
s1 := ‘abc’; s2 := ‘1234’;
if length(s1) > length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Cho đoạn chương trình sau:
s1 := ‘abc’; s2 := ‘1234’;
if length(s1) < length(s2) then writeln(s1) else writeln(s2);
Kết quả in ra màn hình là:
A. ‘1234’
B. ‘abc’
C. ‘1234abc’
D. ‘abc1234’
Nhập ba số nguyên a, b, c từ bàn phím. Kiểm tra xem ba số nguyên đó có phải ba cạnh của một tam giác không?Hãy chỉ ra đó là tam giác gì?
Theo mình học là có : tam giác thường, cân, vuông và đều.
Mình làm ntn ( Sửa giúp mình với ạ, cảm ơn nhiều):
if a=b=c then writeln('Tam giac deu') else
if a=b then writeln('Tam giac can')
if b=c then writeln('Tam giac can')
if a=c then writeln('Tam giac can')
if a*a=b*b+c*c then writeln('Tam giac vuong')
if b*b=a*a+c*c then writeln('Tam giac vuong')
if c*c=b*b+a*a then writeln('Tam giac vuong')
if a<>b<>c then writeln('Tam giac thuong');
